home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Tcl / Modes / installMode.tcl < prev    next >
Encoding:
Text File  |  2000-12-05  |  1.6 KB  |  44 lines
  1. #################################################################################
  2. # install mode.
  3. # 
  4. # You should not remove this file.  Alpha may not function very well
  5. # without it.
  6. #================================================================================
  7.  
  8. alpha::mode Inst 0.1.2 {
  9.     # Rather than using a 'dummyProc', we use a script,
  10.     # which is then removed (so it's only ever called once).
  11.     hook::register openHook install::openHook Inst
  12.     hook::register editHook install::editHook .install
  13.     newPref v prefixString {# } Inst
  14.     
  15.     set Inst::commentCharacters(General)    "# "
  16.     set Inst::commentCharacters(Paragraph)  [list "## " " ##" " # "]
  17.     set Inst::commentCharacters(Box)        [list "#" 2 "#" 2 "#" 3]
  18.     
  19.     # Just a little bit of color for the comments and strings
  20.     
  21.     regModeKeywords -e {#} -c red -s {green} Inst {}
  22. } [list "*Install" "*INSTALL"] {
  23.     installMenu
  24. } {
  25.     addMenu installMenu "Install"
  26. } help {
  27.     The mode is for used by install scripts for adding additional
  28.     packages or upgrading Alpha.  Install mode places an "Install" menu
  29.     in the menu bar, although installation scripts generally use an
  30.     installation dialog which provides an even better user interface.
  31.  
  32.     Click on this link "Install Example" for an example of such a
  33.     dialog.  To see the actual script, hold down any modifier key when
  34.     clicking on the link.
  35.  
  36.     For more information about installation, see "install.tcl".
  37.     For more information about writing packages, see "Extending Alpha".
  38.  
  39.     This mode is not intended for text editing.
  40. }
  41.  
  42.  
  43.  
  44.